home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 December / Dec99.iso / Data / Main.dxr / 00035_Vis (mouseDown).ls < prev    next >
Encoding:
Text File  |  1999-10-05  |  661 b   |  32 lines

  1. property BeginVis, EndVis
  2.  
  3. on new me
  4.   return me
  5. end
  6.  
  7. on getPropertyDescriptionList me
  8.   description = [:]
  9.   addProp(description, #BeginVis, [#default: 0, #format: #integer, #comment: "Begin of Vis"])
  10.   addProp(description, #EndVis, [#default: 0, #format: #integer, #comment: "End of Vis"])
  11.   return description
  12. end
  13.  
  14. on mouseDown me
  15.   if EndVis <> 0 then
  16.     vis(BeginVis, EndVis)
  17.   else
  18.     vis(BeginVis)
  19.   end if
  20. end
  21.  
  22. on vis StartSprite, endSprite
  23.   theSprite = StartSprite
  24.   if endSprite = VOID then
  25.     sprite(theSprite).visible = 1
  26.   else
  27.     repeat with theSprite = StartSprite to endSprite
  28.       sprite(theSprite).visible = 1
  29.     end repeat
  30.   end if
  31. end
  32.